home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / Mildred.lha / lha / ZoomDemo.lha / ZoomTest2.ascii < prev    next >
Text File  |  1999-03-27  |  3KB  |  94 lines
  1.  
  2. WBStartup
  3. NoCli
  4.  
  5. DEFTYPE.l
  6.  
  7. .initgraphics
  8. MBitmap 0,320,240
  9. MBitmap 1,320,240
  10.  
  11. Mc2pWindow 0,320,240                ; Setup structures for c2p conversions.
  12.  
  13. InitBank 0,320*240,$10002           ; Get some free CHIP memory.
  14. CludgeBitMap 0,320,240,8,Bank(0)    ; And make it a planar bitmap.
  15. LoadBitMap 0,"ZoomPic7.IFF",0        ; Get a pic
  16. MPlanar16ToBitmap 0,Bank(0)         ; Make it chunky
  17.  
  18. Dim scrtaglst.TagItem(7)            ; All this stuff sets up our
  19. scrtaglst(0)\ti_Tag = #SA_Left      ; Taglist for the screen we
  20. scrtaglst(0)\ti_Data = 0            ; want. As you can see, it's
  21. scrtaglst(1)\ti_Tag = #SA_Depth     ; rather non-standard.
  22. scrtaglst(1)\ti_Data = 8            ; it doesn't have to be, it's
  23. scrtaglst(2)\ti_Tag = #SA_Width     ; just that this routine needs
  24. scrtaglst(2)\ti_Data = 320          ; a larger screen to avoid
  25. scrtaglst(3)\ti_Tag = #SA_Height    ; clipping.
  26. scrtaglst(3)\ti_Data = 240
  27. scrtaglst(4)\ti_Tag = #SA_BitMap
  28. scrtaglst(4)\ti_Data = Addr BitMap (0)
  29. scrtaglst(5)\ti_Tag = #SA_ShowTitle
  30. scrtaglst(5)\ti_Data = 0
  31. scrtaglst(6)\ti_Tag = #SA_Draggable
  32. scrtaglst(6)\ti_Data = 0
  33. scrtaglst(7)\ti_Tag = #TAG_END      ; The most important tag of them all.
  34.  
  35.  
  36. ScreenTags 0,"MildredDEMO",&scrtaglst(0) ; Open our intuition screen.
  37.  
  38. ShowPalette 0                       ; Attach our palette to the screen.
  39.  
  40. MUseBitmap 1                        ; Tell Mildred to use our main
  41.                                     ; chunky buffer (just in case)
  42. NEWTYPE.ScaleList
  43.   OpWidth.w
  44.   DestXOffset.w
  45.   SrcXOffset.q
  46.   XAddOffset.q
  47.   YAddOffset.q
  48. End NEWTYPE
  49. Dim Skale.ScaleList(240)
  50. angrad.q=Pi/180
  51. For y=0 To 239
  52.   Skale(y)\OpWidth=y+1
  53.   Skale(y)\DestXOffset=0
  54.   Skale(y)\SrcXOffset=Sin(y*angrad*3)
  55.   Skale(y)\XAddOffset=-0.001
  56.   Skale(y)\YAddOffset=0
  57. Next y
  58.  
  59. mag.q=1
  60. its.l=0
  61. magdirection.q=1.5
  62. SourceX.q=0
  63. SourceY.q=0
  64. OpWidth.w=320
  65. OpHeight.w=240
  66. DestX.w=0
  67. DestY.w=0
  68. ResetTimer
  69. Repeat                              ; Repeat our mainloop ....
  70.   If mag+magdirection>240 OR mag+magdirection<1 Then magdirection=-magdirection
  71.   mag+magdirection
  72.   SourceXAdder.q=mag/240
  73.   SourceYAdder.q=mag/240
  74.   MZoom SourceX,SourceY,SourceXAdder,SourceYAdder,DestX,DestY,OpWidth,OpHeight,False,0,&Skale(0)
  75.  
  76.   Mc2p Bank(0)                      ; Convert our chunky buffer to
  77.   its+1
  78.  
  79. Until Joyb(0)<>0 OR Joyb(1)<>0 OR RawStatus($45)
  80. t=Timer
  81. t=Max(t,1)
  82. its=Max(its,1)
  83. a.q=50.0/(t/its)
  84. WbToScreen 1
  85. Window 2,16,16,400,60,0,"Test results",1,0
  86. WindowOutput 2
  87. NPrint a," frames per second"
  88. NPrint " "
  89. NPrint "Press mouse/joy button..."
  90. VWait 20
  91. Repeat
  92. Until Joyb(0)<>0 OR Joyb(1)<>0 OR RawStatus($45)
  93.  
  94.